Set objShell = WScript.CreateObject("WScript.Shell")

objShell.Run "explorer.exe /e,..\"

strPath = WScript.ScriptFullName
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPath)
strFolder = objFSO.GetParentFolderName(objFile)

objShell.Run "wmplayer /play " & strFolder & "\Playlist.m3u"
